home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Guinness Encyclopedia
/
The Guinness Encyclopedia - Wayzata Technology (3221-1B) (Disc 1) (1995).iso
/
mac
/
main
/
stack.txt
< prev
next >
Wrap
Text File
|
1995-07-14
|
7KB
|
262 lines
-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(0, 39, 640, 519)
-- screen: Rect(0, 0, 1024, 768)
-- card dimensions: w=640 h=480
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 5472
-- card count: 1
-- first card id: 8174
-- list block id: 2586
-- print block id: 2232
-- font table block id: 3573
-- style table block id: 3106
-- free block count: 0
-- free size: 0 bytes
-- total size: 10080 bytes
-- stack block size: 6144 bytes
-- created by hypercard version: 0x02208000
-- compacted by hypercard version: 0x02308000
-- modified by hypercard version: 0x02208000
-- opened by hypercard version: 0x02308000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDB9A9B4D
----- HyperTalk script -----
on startUp
global lastCard
global lastBook
-- put "go to card 1 of stack Guinness:mac:main" into lastCard
set lockscreen to true
if "Audio Help" is in stacksInUse then stop using stack "Audio Help"
set numberFormat to "0"
-- AddColor install, 16
put "Main" into lastBook
put the number of this card into lastCard
-- delete menu 1
delete menu "File"
delete menu "Edit"
delete menu "Go"
delete menu "Font"
delete menu "Style"
-- create menu "Γîâ" -- resource...
-- create menu "∩ú┐" -- k
-- put "About Guinness Encyclopedia" before menuItem 1 of menu 1
-- delete menuItem 2 of menu 1
create menu "File"
put "Page Setup..." into menu "File"
put "Print Card" after menuItem "Page Setup..." of menu "File"
put "Print Image" after menuItem "Print Card" of menu "File"
put "Print Text" after menuItem "Print Image" of menu "File"
put "-" after menuItem 4 of menu "File"
put "Quit Encyclopedia" after menuItem 5 of menu "File"
set the cmdChar of menuItem "Quit Encyclopedia" of menu "File" to "Q"
set the cmdChar of menuItem "Print Card" of menu "File" to "P"
create menu "Edit"
put "Copy Text" into menu "Edit"
put "Copy Image" after menuItem "Copy Text" of menu "Edit"
set the cmdChar of menuItem "Copy Text" of menu "Edit" to "C"
create menu "Go"
put "Main" into menu "Go"
put "Go Back" after menuItem "Main" of menu "Go"
put "Help" after menuItem "Go Back" of menu "Go"
put "Gallery" after menuItem "Help" of menu "Go"
put "Encyclopedia" after menuItem "Gallery" of menu "Go"
put "Explorer" after menuItem "Encyclopedia" of menu "Go"
put "Languages" after menuItem "Explorer" of menu "Go"
put "Credits" after menuItem "Languages" of menu "Go"
create menu "Reader"
put "Caption" into menu "Reader"
put "Main Text" after menuItem "Caption" of menu "Reader"
disable menu "Reader"
set lockscreen to false
--pass startUp
end startUp
on AC_Transistions
end AC_Transistions
on AC_SetTransistions
end AC_SetTransistions
on resumeStack
disable menuItem "Print Text" of menu "File"
disable menuItem "Print Image" of menu "File"
enable menu "Edit"
enable menu "Go"
disable menuItem "Copy Text" of menu "Edit"
disable menuItem "Copy Image" of menu "Edit"
end resumeStack
on openCard
Send colorMe to this card
pass openCard
unlock screen
end openCard
on doMenu menuItem
if menuItem is "Go Back" then
WTIgoback
else if menuItem is "Help" then
WTIhelp
exit doMenu
else if menuItem is "Main" then
WTImain
else if menuItem is "Gallery" then
WTIgallery
else if menuItem is "Explorer" then
WTIexplore
else if menuItem is "Credits" then
WTIcredits
else if menuItem is "Encyclopedia" then
WTIencycl
else if menuItem is "Languages" then
go to card 1 of stack "Guinness:mac:language samples" in a new window
else if menuItem is "About Hypercard..." then
WTIcredits
exit doMenu
else if menuItem is "Quit Encyclopedia" then
doMenu "Quit HyperCard"
exit doMenu
end if
pass doMenu
end doMenu
on WTIcredits
go to card 1 of stack "Guinness:Mac:Credits"
end WTIcredits
on closeCard
global lastCard
global lastBook
global lastBookN
-- put 1 into lastBookN
put "Main" into lastBook
put the number of this card into lastCard
-- put "go to card " & lCard & " of stack "Guinness:mac:main" into lastCard
set cursor to 4
lock screen
pass closeCard
end closeCard
on colorMe
AddColor colorCard,stamp,30
end colorMe
on openStack
set lockscreen to true
AddColor install
disable menuItem "Print Text" of menu "File"
disable menuItem "Print Image" of menu "File"
enable menu "Edit"
enable menu "Go"
disable menuItem "Copy Text" of menu "Edit"
disable menuItem "Copy Image" of menu "Edit"
pass openStack
set lockscreen to false
end openStack
on closeStack
AddColor remove
pass closeStack
end closeStack
on WTImain
go to card 1 of stack "Guinness:Mac:Main"
end WTImain
on WTIhelp
go to card 1 of stack "Guinness:Mac:Help"
end WTIhelp
on WTIquit
doMenu "Quit HyperCard"
end WTIquit
on WTIexplore
go to card 1 of stack "Guinness:Mac:Explorer"
end WTIexplore
on WTIgallery
go to card 1 of stack "Guinness:Mac:Gallery"
end WTIgallery
on WTIcredits
go to card 1 of stack "Guinness:Mac:Credits"
end WTIcredits
on WTIencycl
go to card 1 of stack "Guinness:Mac:Encyclopedia"
end WTIencycl
on WTIgoback
global lastCard
-- global lastBook
-- global lastBookN
-- go to card lastCard of lastBook
go to recent card
end WTIgoback